10 PRINT"[147]";:FORI=0TO24:PRINT:PRINTI;:NEXT
20 PRINT"";
30 GOSUB500:POKE214,RND(0)*23:SYS59749
31 REM AB ZEILE 0: POKE214,255
40 POKE648,192:PRINT"[147]";:POKE648,4
50 GOTO30
500 POKE198,0:WAIT198,1
510 POKE198,0:RETURN